﻿Imports omen02
Public Class ActualizarPaquete

    Public InsertarPaquete As InsertarPaquete

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
        Me.Visible = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim negocio As New PaqueteNegocio
        Try
            If lblId.Text <> "" Then
                negocio.actualizar(lblId.Text, Me.dcnregistrarpaquete.Text, Me.pagoregistrarpaquete.Text, Me.productospagoregistrarpaquete.Text)
            Else
                negocio.insertar(Me.dcnregistrarpaquete.Text, Me.pagoregistrarpaquete.Text, Me.productospagoregistrarpaquete.Text)
            End If

            Me.InsertarPaquete.dgvpaquete.DataSource = ""

            Me.Close()
        Catch ex As Exception
            lblMensaje.Text = "Se actualizó el paquete"
        End Try

        'Limpiar cajitas de texto desues de ingresar datos
        dcnregistrarpaquete.Clear()
        pagoregistrarpaquete.Clear()
        productospagoregistrarpaquete.Clear()


    End Sub


  
    Private Sub lblMensaje_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblMensaje.Click

    End Sub
End Class